home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / VAR.ICN < prev    next >
Text File  |  1990-03-28  |  172b  |  10 lines
  1. procedure main(a)
  2.    local x
  3.    static y
  4.    variable("a") := 1
  5.    variable("x") := 2
  6.    variable("y") := 3
  7.    display()
  8.    if variable("z") then write("oops")
  9. end
  10.